home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 June / Ahoy_Magazine_87-06_1987_Double_L.d64 / Parm Pass (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  437b  |  18 lines
  1. 0 rem << cd42-2 >>
  2. 1 rem ==================================
  3. 2 rem    commodares problem #38-1 :
  4. 3 print"[147] parm pass "
  5. 4 rem    solution by
  6. 5 rem    joseph wright
  7. 6 rem ==================================
  8. 7 rem      ==== save 10-40 as prg1 =====
  9. 10 input"what is a";a
  10. 20 if ds$="" then poke 198,1:poke 631,13 : goto 40
  11. 30 poke 208,1 : poke 842,13
  12. 40 print"[147]  ";a:load"prg2",8
  13. 44 rem
  14. 45 rem      === save 50-60 as prg2 =====
  15. 46 rem
  16. 50 a=0:input"";a
  17. 60 print"a in prg2="a
  18.